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ABSTRACT 



This paper describes the formation of a dictionary list structure 
which can be used by an English language translator to enable natural 
language man-machine conversation directed towards the retrieval of 
information from a data bank. The hierarchical structure of the let- 
ters in a word and the placement of word attributes in this structure 
is discussed. 

A computer program, which accepts as input an English language 
sentence and processes this sentence in conjunction with the dictionary 
list structure to obtain the attributes of the individual words, is 
described. The incorporation of this dictionary structure into a 
complete natural language information retrieval system is also 
discussed. 
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LIST OF DEFINITIONS 



l e Record (Logical Record) - A collection of related data elements 
treated as a unit. (E.g., the topic name and its numeric code word). 

2« File - A collection of related records treated as a unit. 

3. Information Retrieval System - A process developed to recover 
specific information from a data bank. 

4. Key-Searches - Searches conducted to retrieve information in 
accordance with a specific data input parameter (or set of parameters) 
called a key. 

5* Pointer - A numeric value used to specify an address in core 

6. Null Pointer - A special pointer value that cannot relate to any 
address in storage (represented by NIL or X) • 

7. Node - One or more consecutive bytes of core storage divided into 
parts called fields. (synonym — cell) 

8. Tree - A finite set of one or more nodes such that there is one 
specially designated node called the root of the tree and the remaining 
nodes are partitioned into disjoint sets of trees which are called 
subtrees of the original tree. 

9. Binary Tree - A tree structure where each node has at most two 
subtrees. When there is only one subtree present, a distinction is 
wade between whether it is a left subtree or a right subtree. 

10. Hash Coding - A method of effecting random storage where a trans^ 
formation is performed on a key (in this case the topic name) to 
produce an address in the table which can be used to locate a position 
for placing the key and its associated item. 
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I. INTRODUCTION 



The Technical Reports Section at the Naval Postgraduate School 
Library currently offers its users access to those reports in its 
holdings by either of two methods. First, the user can search through 
the card index to obtain the report number of the item desired, or 
second, he can conduct a computerized library search to obtain a bib- 
liography of those reports in the holdings which pertain to the sub- 
ject area of interest. 

This library search is conducted by entering a numeric code word 
into an information retrieval system which will then use this code 
word as a key to search for and retrieve a bibliographical listing 
of those reports which pertain to the entered code word. Any number 
of code words can be combined, and the items on the bibliography re- 
trieved for the user will have all of the code words within their list 
of keys. At present the Technical Reports Section has about 100,000 
bibliographical items in its file, and these items can be accessed 
by over 10,000 different code words. 

Although a library search is faster and easier for the user, es- 
pecially when only a general topic area is desired, it does have a 
number of shortcomings. First, there is a nominal delay between the 
request for the search and the obtaining of the bibliography resulting 
from that search. Second, the user does not know at the time of his 
request whether or not his topic area is too broad or too narrow to 
obtain a reasonable bibliography. Third, the user presently has to 
personally search through a book of topic areas to obtain the numberic 
code words required for the information retrieval system. 
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This report is the result of a project to develop a flexible and 
accessible information system for the specific objective of retrieving 
a bibliography of the reports held by the Technical Reports Section 
of the Naval Postgraduate School Library. The proposed system would 
be implemented on the school's IBM 360/67 computer and would utilize 
the time-sharing capability of that system. 

The system as conceived would be similar to the REAL ENGLISH system 
at the University of Pennsylvania [ 1 ]. It would consist of an 
English language translation capability which would be used to pre- 
process the user's English language request, which has been entered 
at the time-sharing terminal, to determine the specific item(s) desired. 
Then the numeric code associated with each item would be retrieved from 
a table and entered into the existing information retrieval system. 

The number of items in the bibliographical file which met the criterion 
of the code word(s) would be printed out at the terminal, and the user 
could then specify whether or not there was a sufficient number of 
bibliographical items for his use. If the number of items were not 
sufficient or overly abundant, the user could re-initiate his request 
in either a broader topic area or a more restricted area to obtain 
the desired number of items in the bibliography. If the number of 
bibliographical items was sufficient, the user could specify that the 
bibliography was to be printed out at the terminal or at the offline 
printer at the computer installation. A generalized block diagram 
of the proposed system is shown in figure 1, page 11. 

The remainder of this report has been written in two parts. The 
first part describes the formation of a dictionary structure required 
for the English language translation, the processing of the user's 
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FIGURE 1. System Block Diagram 
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request to obtain from the dictionary the attributes of the individual 
words, and the retrieval of the numeric codes from the table of code 
words. The second part consists of illustrative examples of the 
system. 

The syntactic and semantic interpretation of the attributes of 
the request and the actual implementation with the existing informa- 
tion retrieval system are left for further study. Some work in the 
area of syntactic and semantic interpretation has been done by Cautin 
[1,2] and Kellog [5,6] which might be of value for anyone who desires 
to conduct further work on this system. 
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II. SYSTEM DESIGN 



At this stage in the development of the system, there are three 
main computer programs or subroutines. The primary program, LIB-SER, 
which is mainly concerned with performing operations on lists, was 
written in PL/I [7,8,9] to take advantage of the list processing and 
recursive capabilities of that language. Also, PL/I was chosen 
instead of a list processing language, such as LISP 1.5, because of 
the availability of PL/I at the Naval Postgraduate School computer 
installation. 

The TABLE program, which is also in PL/I, was written exclusively 
for use as a calling program for the construction and maintenance of 
the numeric codes table. PL/I was chosen for this routine mainly 
because of its character manipulation capabilities. 

The final program, HASHX, is a subroutine written in IBM 360/67 
Assembly language [10,11] and is called into operation by both the 
LIB-SER and TABLE programs. Assembly language was chosen since it 
allows a closer control over the representation and location of data 
while in computer core storage. This close control is necessary 
since HASHX is used to move the core character representations of the 
topic names and their numeric codes from one position to another in 
core storage. 

A. LIB-SER PROGRAM 

The LIB-SER program is the main program utilized by the proposed 
library search system. It is utilized to build lists, add items to 
lists, delete items from lists, and search for items on the lists 
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maintained during the operation of the proposed system. The lists 
of prime importance are ATOMLIST, the dictionary list (LI), the user’s 
request list (L2) , and the multiple definitions list (L3) . 

1. List Structure in the Program 

A list structure was used in this program since a hierarchical 
structure was desired for the dictionary list. This hierarchical 
structure is used to simplify the search through the dictionary for 
the attributes of the words in the user’s request. The inputs to the 
program, the dictionary file and the user’s request, are built into 
a system of connected lists where these lists take on a form similar 
to the program and data structure utilized in the list processing 
language LISP 1.5 [12]. 

In LISP 1.5, program and data are represented in the form of 
symbolic expressions or S-expressions where these S-expressions are 
of indefinite length and have a branching binary tree structure which 
allows the identification and isolation of sub-expressions or sub- 
trees within the basic structure. The S-expressions are graphically 
represented in this binary tree structure, as shown in figure 2 on 
page 15, as a sequency of nodes or cells, each of which has two fields. 
When using the dotted pair notation in LISP 1.5, both of the fields can 
be used to contain a pointer to another node or cell or they can be 
used to contain a character string. In an alternative notation, list 
notation, the left field is the only field which can be used to contain 
a character string or pointer. The right field contains a pointer 
to the next node in the tree or a special pointer, NIL, which is used 
as a terminator of the list. 
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-(A'(B-C)) (A(B C)) 

(■a) (b) 

dotted pair notation list notation 

FIGURE 2. Graphical Structure of LISP 1.5 Lists 

The list structure used in this program is a modified version 
of the list notation used in LISP 1.5. This modification was required 
by the use of PL/I as the programming language and the requirement of 
this language that the contents of the fields in a cell be explicitly 
declared. Thus, no one field can be used to contain both a pointer 
and a character string during a program execution. This required that 
the character strings be placed in a type of cell, called ATOMCELL in 
this program, defined separately from the connective cells, called 
CONCELL, used to represent the tree structure. It also required, as 
shown in figure 3 on page 16, that each of the character strings which 
is placed in an ATOMCELL to have associated with it two CONCELLS. 

The upper CONCELL is used to connect the character string to other 
character strings at the same level in the subtree. The lower CONCELL 
is used to contain a pointer to the character string contained in the 
ATOMCELL and serve as an attachment point for any subtrees of that 
character string. 
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Since there are two CONCELLS associated with each character 
string, a method of determining whether or not the left field of the 
CONCELL pointed to an ATOMCELL or to another CONCELL in the list was 
required. This was accomplished by the addition of a third field to 
the CONCELL type of cell. A fourth field was added to indicate the 
depth of the occurrence of the cell in the list structure and is 
utilized during the construction of the trees. 




(A < BC > ) 

FIGURE 3. Graphical Structure of the Lists Used.^ 
a. ATOMLIST List 

The ATOMLIST list is used to store the alphabetic, numeric, 
and special characters which are required by the program to be retained 
in their symbolic form during the operation of the program. It con- 
sists of a series of connected cells called ATOMCELLS, shown in figure 
4 on page 17, which have three fields. Each new cell added to the list 
is connected to the first cell on the list. 

^All of the circled character strings are included in the ATOMLIST 
list and only conceptually displayed here. The Tv or X used in the 
CDRF field is used to indicate the NULL pointer. 
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The three fields are the SIZE field, which contains the 
number of characters of the item represented in the cell, the PNAME 
field, which contains the character representation of the item, and 
the NEXT field, which contains a pointer to the next ATOMCELL on the 
list. 




FIGURE 4. Structure of an ATOMCELL 

Each of these ATOMCELLs is placed on this list as the 
characters they contain are encountered during the operation of the 
program, with the majority of them being attached to the list during 
the initialization phase of the dictionary. Each item is included 
in this list only once since a search of the list (procedure LOOKUP) 
is conducted every time an item is encountered to determine if an 
ATOMCELL has or has not already been included in the list which con- 
tains the character(s) of the item. No ATOMCELLs are deleted from 
this list during the operation of the program. 

All referrals to the character representation of any item 
on the ATOMLIST is by the pointer to the entire ATOMCELL. This pointer 
will be the same as that contained in the NEXT field of the ATOMCELL 
immediately prior to the ATOMCELL containing the desired characters, 
if one exists, or else it will be the pointer ATOMLIST since the charac- 
ters would then have to be contained in the first ATOMCELL on the list. 

A diagram of the ATOMLIST is shown below in figure 5. 
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ATOMLIST 




FIGURE 5. Diagram of the ATOMLIST 
b„ Connective Lists 

All of the remaining lists built and used by the program 
are used to connect the character representations in the ATOMLIST 
in various fashions. These lists consist of a series of CONCELLS 
which have four fields, an ATOMB field, a LEVEL field, and two pointer 
fields, CARE and CDRF. The structure of the CONCELL is shown in figure 6. 



ATOMB 


LEVEL 


CARF 


CDRF 



FIGURE 6. Structure of a CONCELL 

The ATOMB field is used to indicate the purpose of the 
CONCELL. It is a two bit field which can contain one of three binary 
values, 00, 01, or 11. The 00 value indicates that the CONCELL is 
being used as a connective cell where both the CARF- and the CDRF fields 
contain pointers to other CONCELLs, with the exception that the CDRF 
field may contain a null pointer. All items in the same subtree at 
any particular level will be connected by the CDRF field of a CONCELL 
with a 00 ATCMB field. 

The 01 value indicates that the CARF field contains a 
pointer to an ATOMCELL. The CDRF field may contain a pointer to an- 
other CONCELL with a 00 ATOMB field which is at the next level down 
in the tree, or else contain a null pointer. The 11 value, which can 
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only be placed in the ATOMB field during the initialization phase of 
the dictionary list, indicates that the CARF field contains a pointer 
to an ATOMCELL which contains the name of a multiple definition or an 
attribute name. The CDRF field always contains a null pointer. 

A sample connective list is shown below in figure 7. 




'FIGURE 7. A Connected List 

The LEVEL field contains a numeric indication as to the 
level in the tree structure of the particular cell. For CONCELLs that 
are contained in the multiple definitions list, the value contained 
in the LEVEL field is not changed when that definition is included 
at other places in the structure of the dictionary. 

The use of the multiple definitions will be explained 
later during the discussion of the initialization of the dictionary. 

2. File Descriptions 

Two files are used by the program during the initialization 

✓ 

phase to enter data into the program, the Dictionary file and the Codes 
file. Both files are read-only files when used by the LIB-SER program, 
a. Description of the Dictionary File 
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(1) Convention and Special Characters , With the excep- 



tion of the attribute names and the names of the multiple definitions 
sequences, all items in the dictionary are single characters. Spaces 
or blanks are used only to improve the readability or to separate items 
in the dictionary. The attribute names and the multiple definition 
names must be at least two characters in length and the multiple de- 
finition names start with the letter M. 

There are eight characters used in this file which 
have special significance during the operation of the program. These 
characters are the right and left parentheses, the greater-than symbol 
O), the less-than symbol ((), the dollar sign ($), the minus sign 
(-) , the asterisk (*) , and the slash(/) . 

The six characters, right and left parentheses, 
greater-than symbol, less-than symbol, the dollar sign, and the slash, 
are used during the building of the list structure to determine the 
proper connections which have to be made. The left parenthesis is 
used to indicate the beginning of the dictionary file. The right paren- 
thesis is used to indicate the end of the dictionary file. The dollar 
sign is used to terminate the processing of the current input. The 
less-than symbol is used to indicate that the items that follow are 
to be attached to the preceding character at the next lower level in 
the tree structure. The greater-than symbol is used to indicate that 
items at the current level in the subtree have been processed and that 
the following items are not to be attached at that level but at the 
next higher in the tree structure. The slash is used to indicate that 
the next item is the name of a multiple definition and that the pre- 
viously formed subtree, which is attached to that multiple definition 
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name, is to be inserted at this point in the current subtree. 

The two characters, the minus sign and the asterisk, 
are used during the attribute determination phase to indicate special 
conditions or operations . The minus sign is used to indicate that the 
following attribute is not to be retained for the word thus formed. 

This attribute may or may not have been retrieved for the word under 
consideration. The asterisk is used to indicate that a complete word 
has been placed in the tree structure to that point in the tree. It 
is also used as the attachment point for any remaining attributes of 
the word that it terminates. 

(2) File Description . The Dictionary File consists of 
a sequence of characters contained in a series of sixty-character 
records. The file begins with the left parenthesis and ends with a 
right parenthesis and a dollar sign in the last record. The first 
character in the sequence after the left parenthesis is the symbol 
one (1) which is used as an attachment point for all of the multiple 
definitions . The remaining characters are placed into the file such 
that the tree structure which is built from this file will contain 
all of the words entered into the dictionary of the program. 

At the zero level in the dictionary tree, the twenty- 
six letters of the Latin alphabet are attached to the preceding 
character in descending order according to their probability of occurrance 
in the English language [13]. These letters are used as the first 
character of all words in the dictionary. Each of the remaining letters 
in a word is preceded by the less-than symbol to indicate that they are 
to be attached to the previous letter in the word at the next lower 
level in the subtree. 
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Where there are attributes that are common to a number 



of words with similar beginnings, those attributes can be included in 
the sequence immediately prior to the beginning of the dissimilarity. 
Wherever a complete word has been represented, an asterisk is included 
in the sequence following the last letter of the word. When a word 
being described has a common ending, such as the plural endings ES 
and S, the multiple definition name for that ending is placed in the 
sequence immediately following the slash symbol, and this multiple 
definition name is used to complete the word. Figure 8 illustrates 
the use of the multiple definition name in the sequence. 

S<0<M<E<* ADVBP >»> E<N<D <VERBP * /MING»>> 

FIGURE 8. Sample Dictionary Record 
b. Codes File. 

The codes file consists of a series of sixty-character 
records of which only the first twenty characters are utilized. Each 
record consists of the topic name beginning in the first character posi- 
tion and followed by the five number numeric code word in the last 
five character positions with blanks in between. The records are ar- 
ranged in the file according to the hash coded index of each item that 
is determined during the operation of the TABLE program and its call 
to the subroutine HASHX « 

3. Initialization . 

The program has an initialization phase in which the dictionary 

1 

file is read and structured into the tree and subtrees required for 
later use in the determination of the attributes of a user’s request. 
After the dictonary has been structured, the table file is read into 
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an array for use during the search for the numeric code words required 
for the information retrieval system. 

a. The Dictionary Tree Structure. 

The dictionary tree structure is a connective list which 
has pointers in the CARF field of the appropriate CONCELL to point 
to the required symbolic data in the ATOMLIST. It is formed by first 
constructing the multiple definitions subtree and then constructing 
the remaining subtrees, all of which start with the letters of the 
alphabet and some punctuation characters. All of the subtrees are 
constructed independently by the recursiveness of the structuring 
procedure (S__EXPR) until the last subtree has been structured at which 
time the subtrees are connected to form the dictionary tree. The 
recursive construction of the tree is illustrated in figure 9 on page 24. 

Although the multiple definitions subtree is constructed 
in the same manner as all of the other subtrees in the dictionary, 
there is a special pointer (L3) which is assigned to point to this 
subtree during the initialization. This assignment occurs immediately 
upon completion of the structuring of the subtree and before the next 
subtree is started. This pointer is required during the structuring 
of the remaining subtrees as a beginning pointer for the procedure 
(LOOKLIST) when a search for a multiple definition used in the other 
subtrees is required. The multiple definitions subtree cannot be re- 
cursively defined (i.e., a multiple definition which uses another mul- 
tiple definition as one of its endings) since the special pointer is 
not assigned until the completion of the entire structuring of the 
subtree. 

During the construction of the remaining subtrees, the 
multiple definitions are used whenever a slash is encountered during 
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FIGURE 9. Recursive Structure of Connected Lists 
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the scanning of the input symbols. When this occurs, the procedure 
LOOKLIST is invoked to determine the pointer to the subtree required 
at this point for the completion of the word being entered into the 
dictionary. The program allows more than one multiple definition to 
be used as an ending of a word with the stipulations that none of the 
multiple definition subtrees can begin with the same letter nor can 
the multiple definitions subtrees begin with the same letter as is 
already included in the subtree of the word at that level. The use 
of the multiple definition is illustrated in figure 10 on pages 26 
and 27. 

b . The Table Array 

The table file is copied directly into the array area, 

CODE. No processing occurs with the items in the file during the 
initialization phase of the program. Currently, there is a logical 
switch (true or false) which has been turned off (false) to prevent 
the table file from being read into the CODE array. When further 
implementation of the proposed library search system has been accom- 
plished, this switch can be turned on to allow the initialization of 
the table array for use in the table search procedure. 

4. Processing of a Request 

After the initialization phase has been completed, the computer 
will loop through the remaining parts of the program until the string 
STOP$ is entered at the terminal by the operator. 

a. Entry of a Request 

The user is requested by the program to enter his name 
and student box number (or other appropriate school mail box) to be 
used for identification purposes. The user is then asked to enter 
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FIGURE 10. Attachment of Multiple Definitions 
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FIGURE 10. Attachment of Multiple Definitions 
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his English language request surrounded by right and left parentheses 
and ending with a dollar sign. If the request is too long to be en- 
tered at one time, the right parenthesis and dollar sign can be left 
off until the entire request has been entered. 

The request entered will be built into a tree (L2) in the 
same manner as the dictionary tree where all of the words and punctua- 
tion are entered as single item. Figure 11 is an example of a typical 
laser’s request tree. 
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FIGURE 11. Sample User's Request 

This tree structure will then be passed to the attribute determination 
routine for processing. 

b. Determination of the Attributes 

In the procedure ATTRB, each word in the user's request 
is separated into its constitutent letters and these letters are passed 
one at a time to the LOOKLIST procedure. The ATTRB procedure will also 
pass to the LOOKLIST procedure the subtree, or tree if the letter is 
the first letter of the word, on which the LOOKLIST procedure is to 
search for the letter. 

In the LOOKLIST procedure, each letter is searched for only 
in the highest level of the subtree passed to it. Any attributes which 
are encountered before the letter is found will be attached to a tem- 
porary pointer (L3) for later combination with the final attributes . 
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When the letter has been found, the pointer contained in the CDRF field 
of the CONCELL which points to the ATOMCELL containing the letter is 
returned to the ATTRB procedure. This pointer will be used by the 
ATTRB procedure as the pointer to the subtree used during the next 
call to LOOKLIST. 



This searching will continue until all of the letters of 
the word have been found. After the last letter has been processed, 
the ATTRB procedure will pass to the LOOKLIST procedure an asterisk 
and the latest subtree. The pointer (Q) returned from this call will 
point to the list of final attributes of the word, if any. 

At this point, both the temporary attribute list and the 
final attribute list will be passed to the DELETE procedure for the 
deletion of any attributes in the temporary list which are indicated 
as not applying to the word by the prefixed minus sign on the attribute. 
The before and after structure of the temporary and final attribute 
lists are illustrated in figure 12. 
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FIGURE 12. Temporary and Final Attribute Lists 
The temporary list and the final list will be connected after this 
deletion has taken place, and the resulting list will be attached to 
the word on the user's request list (L2) as shown in figure 13. 
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FIGURE 13, User’s Request with Attributes Attached 

As the processing of each word has been accomplished, a 
message is displayed at the terminal to the effect that the attributes 
have been found. If during the search for the letter of a word by the 
LOOKLIST procedure, that letter is not found, a null pointer is returned 
to the ATTRB procedure. This null pointer will result in the ATTRB 
procedure displaying a message at the terminal that the attributes of 
the word have not been found, and then the procedure will begin to 
process the next word in the request. 

After all of the words have been processed, the computer 
prints out the user’s list which now includes the attributes of the 
individual words. The computer then branches back to the beginning 
and requests a new user to enter his name and box number. 



B. TABLE PROGRAM 

Since the TABLE procedure in the main program, LIB-SER, was written 
to allow only the retrieval of the numeric code words from the CODE 
array, the auxiliary program, TABLE, was written. The TABLE program 
allows the entry of an item, the deletion of an item, and the retrieval 
of information contained in an item in the CODE array. 



30 





The TABLE program first initializes the CODE array by copying 
directly into the array the individual records in the CODES file. 

The records are truncated after the twentieth character. Once in the 
array, the program calls the subroutine HASHX with various parameters 
to perform the functions of retrieval, deletion, or storage of an 
item in the array. When the required modifications to the array have 
been accomplished, the CODE array is copies back into the CODES file 
with each item being padded with blanks on the right to fill out each 
record . 

Although the TABLE program was written to be operated from the 
time-sharing terminal, with slight modifications it could be run under 
the batch processor at the computer installation. This might be de- 
sirable if the number of modifications is substantial. 

C. HASHX SUBROUTINE 

The HASHX subroutine, which is used to compute the address of a 
location in a table or array and either return the contents of that 
location or place an item in that location, is based on the work done 
in scatter storage techniques by W. D. MAURER [Ik]. The method used 
here is referred to as a "division hash code" to distinguish it from 
the logical or multiplicative methods most often used in scatter 
storage systems [15]. 

Hash coding techniques can be applied to any table or array in 
which the access is to be made to the entries in an unpredictable 
order and the items are identified by some key or name associated with 
their contents. In the hash coding technique, a transformation is 
performed on the key to produce an address in the table where the key 
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and the entry associated with that key can be placed. A good trans- 
formation is one which will distribute these addresses uniformly 
across the available table area. 

In most hash coding techniques, the table size is restricted to 

being a power of two, since the common method of obtaining the address 

is to calculate a k-bit field which is assumed to be a random integer 

\ 

between zero and 2^-1, and this integer is then used as the address. 

In the method proposed by MAURER and used in this subroutine, the 
table size is a prime number, and therefore it can be almost any size 
desired. 

1. Determination of the Hash Code 

The hash coding method used here consists of using the first 
eight characters of the topic name as the key. The first four charac- 
ters are exclusively OR-ed with the last four characters to obtain one 
full computer word (32 bits on the IBM 360/67 computer), and this 
computer word is divided, using integer arithmetic, by the table size. 
The remainder from this division, which is a number between zero and 
one-less- than- th e-table-size, is used as the hash code. 

This method of calculating the hash code is comparable in speed 
to the multiplicative and logical methods with the advantage that is 
almost completely free of the nonrandomness which often occurs in the 
other methods. 

In using this method of hash coding, a change in the table 
size will change all of the hash codes for the table entries. If the 
table size has to be changed, all of the hash codes for the entries 
must be recomputed. By using a prime number which is twenty-five 
percent larger than the maximum number of expected entries for the 
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table, the average number of steps required to find an item in the 
table is less than two, i.e., the original hash code address and 



one collision modification. 

2. Collision Handling 

In this method, as in all other hash coding methods, when two 
keys have the same hash code, a rr collision n is said to have occurred. 
When a collision occurs, the item causing the collision must be located 
out of place in the table. 

There are a number of methods for determining a location for 
this item, such as searching linearly forward in the table. Another 
approach is to add a random number to the collision hash code to de- 
termine a new location. Neither of these methods is very satisfactory 
since they are intrinsically slow if there is any sort of clustering 
of the items in the table (many items with the same hash code place 
next to each other) . 

The method of handling collisions used in this subroutine is 
the "quadratic search 11 . In this method, a quadratic equation is used 
to calculate the new location. The hash code which caused the colli- 
sion is used as the constant term in the equation and the other coef- 
ficients depend upon the table size. The quadratic search was shown 
by MAURER to always search for the item or an empty location by looking 
at exactly half of the remaining table locations if the table size is 
a prime number. In using this method of handling collisions, the table 
is declared full when the quadratic search has searched through half 
of the table. 
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III. AN EXAMPLE 



To demonstrate the operation of the LIB-SER program, only a repre- 
sentative dictionary is utilized. For a total implementation of this 
system, the dictionary would have to be greatly expanded. The dictionary 
used for this demonstration contains seventy words. 

The program is loaded for operation at the time-sharing terminal 
by entering LDRM. LDRM is a time-sharing executive file which causes 
the program and the system library to be loaded into the computer and 
starts the execution of the program. If c non-blank character had 
been entered after LDRM, the program would request the operator to 
enter optional parameters for use by the program. These parameters are 
logical switches which can be used to display traces through the program 
or selectively enable/disable the various routines in the program. 

After execution has begun, and any optional parameters entered, 
the program initializes the dictionary tree structure. The computer 
will then ask a user to enter his request, which will then be processed 
to obtain the attributes of the individual words. Figure 15 illustrates 
a complete run for an individual user. 

The difference between the attributes for a word which has been 
processed with the DELETE procedure disabled and the same word when it 
has been enabled is illustrated below in figure 14. 

The computer will then loop back to ask a new user to enter 
his request. The program can be stopped by entering STOP$. 



(INFORM <NOUNP -NOUNP VERBP> ) 



( INFORM <VERBP> ) 



(a) 

DELTE DISABLED 



DELETE ENABLED 



(b) 



FIGURE 14. Effects of DELETE Routine 
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ENTER NAME AND SMC NUMBER 
_c.t. schmidt box 1962 

ENTER REQUEST, SURROUND WITH ( )$ 
(what do you have on computers?) $ 
WHAT 
DO 
YOU 
HAVE 
ON 

COMPUTERS 

? 

***&********£&*********&****** 

C.T. SCHMIDT BOX 1962 
****************************** 



ATTRIBUTES 


FOUND 


FOR 


WHAT 


ATTRIBUTES 


FOUND 


FOR 


DO 


ATTRIBUTES 


FOUND 


FOR 


YOU 


ATTRIBUTES 


FOUND 


FOR 


HAVE 


ATTRIBUTES 


FOUND 


FOR 


ON 


ATTRIBUTES 


FOUND 


FOR 


COMPUTERS 


ATTRIBUTES 


FOUND 


FOR 


? 



(WHAT (INTER ADVBP> Do(vERBP> YOU<PRNOUNP> HAVE<VERBP PRN3SG> 
ON (P REPP) COMPUTERS <NOUNP PLUR> ? <PUNTI> ) 

** AT this point your request would be passed to the 

TRANSLATION AND TABLE SEARCH ROUTINES. ** 



FIGURE 15. Sample Program 



IV. CONCLUDING REMARKS 



This paper has discussed a dictionary list structure which could 
be used by an English Language translator to enable natural language 
man-machine conversation directed towards the retrieval of information 
from a data bank. The development of the English Language translator 
utilizing this dictionary structure and the inclusion of this translator 
into the existing information retrieval system used by the Technical 
Reports Section at the Naval Postgraduate School Library would provide 
the school a flexible and accessible information system for use in 
obtaining a bibliography of the reports held by the library. 

A translation procedure which is based on a generative model of 
syntax and semantics that is comprehensive enough to automatically 
resolve some forms of syntactic and semantic ambiguities would be re- 
quired for this system. The translator would have to be able to 
syntactically parse the user’s request, using the attributes determined 
from a dictionary structure such as described in this paper, and then 
use this parse in conjunction with the semantic environment of the 
system to determine the topic areas of interest from the user’s request. 
In the accomplishment of this goal, it should have some means of com- 
munication with the user to resolve any ambiguities which it is not 
otherwise able to resolve. Once the topic areas of interest have been 
determined, the system can readily produce the numeric code words 
required to obtain a bibliography from the existing information 
retrieval system. 
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/ # 5jC # # # # >>T 3}t # 3$C # 3*C # 3^C # 5{< * * # £ # £ ^ # # A 3$C ^ % 3? : # # # # # # & ifc * # # & # * # # fc 



£ # 3$c £ afc # # £ 3$C # # £ £ # # ^ T$C ^ ^ # 5$C 5$C ^ # # 3$C £ # 5^ * £ # * 3}r # * * * 3^C * # * £ * £ 3$C 5^ * 



LIB SER: PROC(PARMS) OPTI ONS ( MAI N) : 

DCL CODES FILE STREAM ENVIRONMENT («=(RO))t 
DICT FILE STREAM ENVIRONMENT ( c ( BO ) ) : 

DCL PARMS CHAR! 8) VAR , CODE! 11 ) CHAF<20): 

DCL (ATOMLIST,P,NI L) RTR.rsi ZE C IXED PIN, 

/AAAAAAAAAAAAAAAAAA*AAAAAAAA**AA*A*AAAAAAAAAAAAAAAA 

* DECLARATION ^ THE FIELDS O c thf CE LLS ON * 

* THE ’ATOMLIST* LIST. * 

A##* A AA AA A A# AAA AAA AAA AAA* a#* A A AAA** AAAA*AA*AAAAA A A / 

1 ATOMCELL BASED! P) , 

2 SIZE FIXED BIN, 

2 NEXT PTR , 

2 PNAME CHAR ( CSI 7.E RE C ER(SIZE)), 

/AAAAAAAAAAAAAAAAAAAAA*AAAAA*AA*AAAA*AAAA*AA*A*AAA* 

* DECLARATION OF thp FIELDS OF THE CELLS ON * 

* LI, L? , AND L3 LISTS. * 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/ 

1 CONCELL BASED! P) , 

2 ATOMB B I T ( 2 ) , 

2 LEVEL FIXED BIN, 

2 CAP F PTR, 

2 CDRF PTR; 

/ afc £ # 3$C 5$C 3$C # # 5$C # 5?C 5$C # 3$C 5$C 3$C 5k 3^ ^ % # 5$c 3$C # £ 3«C # # ^ * 5$T £ J$C £ £ * * 3*e J$C 3$r *S$C T^C £ 3$C jfc 3§C £ 

* DECLARATION OF a FT LE CONTROL BLOCK USED * 

A DURING THE READING AND WRITING OF THE * 

* PILES USFD . * 

A# AAA A A A A AA AAA A A A#* A# a AAA AAA AA* AAAAA*AAAA AA A AAA*A * / 

DCL 1 FCR STATIC, 

2 COMMAND CHAR ( R ) , 

2 FILENAME CHAR < 8 ) INIT( «DIC T ' ) , 

2 FILETYPF CHAR(R) I NI T ( • DATA ' ) , 

2 CARDNUM FIXED BIN, 

2 STATUS FIXED BIN INTT(O), 

2 CAP D_BUFF CHAR ! 80) ; 

/£#5«C5jCJ$C3lcj?C *5!:* £*:&£;}; & ?X 5?C £ # 3jt ^ ##5^ # # ^ # 5$C 

* PROCEDURE WHICH 1 ? USFH to INITIALIZE THE * 

* DICTIONARY AND THE TABLE ARRAY. * 

AAAAAAAAAAAAAAAAsr*********************************/ 

DCL IN I T FNTPY: 

1NIT: PROC; 

DCL I PIXED BIN*. 

ATOMLIST,NIL=NULL: 

FLD = ' 1 »B : 

COMMAND = «PDBUF»; 

DISPLAY! ’INITIALI ZI NG FROM FILE'): 

LI = READS: 

COMMAND = 'FINIS': 

CALL IHEFI LE! FCB) ; 

FLD = 1 0 'P : 



A* 

*A 

AA 

AA 

AA 



LIBRARY SEARCH SY$TFM 
LIB_SER PROGRAM 



AA 

AA 

AA 

A A 

AA 
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IF TP I THEN CALL PR I NTS (CDR ( LI ) ) : 

IF TBL THEN DO: 

COMMAND = 'RDRUF*; 

FILENAME = ’C n nES': 

DO I = 1 TO tblSI 7= ; 

CARDNUM = I ; 

CALL IHEFILE (FCB) : 

COHE( I ) = CAR D RUF C ; 

IF TRI THEN DISPLAY! *C"DE ( ' I I T I I ' ) 'll 
CODE (I ) ) : END: 

COMMAND = 'FINIS': 

CALL IHEFI LE(FCB) : END: 

DISPLAY! « C ND OF INITIALIZATION'); 

END INIT : 

/ # £ * # # 5{t * % * % * # * * # Y % % sf: £ $ % * # # if. ± aft % * % £ # A % # if * 3^ # # # £ # & 

* PROCEDURE WHICH IS USED TO ENTER ITEMS * 

* INTO THE PROGRAM. * 

sjc S)c # # 5): jjc # # 5{c # # # j{c % * # % ajt £ £ # * £ sfc £ % # * # * sfc * sfc * # # # £ # £ * * # f 

DCL INPUT ENTRY(CHAR(72)) ; 

INPUT: PROC ! B ) ; 

DCL B C HAR ( 72 ) t ( S CHAP(8),I FIX C D BIN I N I T ! 0 ) ) ST AT TC 
IF FLD THEN DO: 

I = I+l: 

CARDNUM = I: 

CALL IHEFILE(FCR) : 

B = CARD BUFF: 

IF tri tREN DI SPLAY! 'BUFFED 'MB): END: 

ELSE DI SPLAY! 'ENTER STRING, SURROUND WITH ! ) * • ) 
REPLY(B) : 

END INPUT: 

/ # # £ # * % 3$C # # $ £ # jfc # # * # # * # $ £ # £ 5$< * £ ^ ^ £ ifc * * # & # # # # £ * if ^ # & 

* PROCEDURE WHICH IS USED TO PRINT OUT ITEMS * 

* FROM THE PROGRAM. * 

^ # £*5fe * s{t * % / 

DCL OUTPUT ENTRY! CHAR (*)) : 

OUTPUT: PROC(C): 

DCL C CHAR!*), I FIXED BIN I NI T ( 0 ) ST AT IC : 

IF FLD THEN DO: 

I = i+l; 

CARDNUM = I : 

COMMAND = 'WP.BLF': 

CALL IHEFILE(FCB) : END: 

ELSE D I SPLA Y! C ) : 

END OUTPUT; 

* PROCEDURE IJS^D TH DETERMINE the FUNC t TON * 

* OF THE CELL SPECIFIED BY THE POINTER. * 

/ 

DCL ATOM ENTRY(PTR) RE TURN S ( 81 T ( 2 ) ) : 

ATOM : PROC !A ) BIT! 2) : 

IF A = NI L THEM R c TUR N ( ' 01 ' B) ; 

RETURN! A->ATOMB ) : 

END ATOM; 

/ £ # # # * jjc # sj: % afj £ ^ sje 2 }: % if % * £ £ # £ # * # % # # * * * 4: ajt # A Ijc # * # # # * 



* PROCEDURE WHICH CONSTRUCTS A CHARACTER * 

* POINTER CELL (A CELL WITH EI7FFR A H OR 01 * 

* ATOMB FIELD) AND T NSERTS TH c POINTER * 

* TO THE CHARACTERS) ON THE ' AT 0 M L I S T ' LIST * 

* IF ALREADY ON the LIST OR ELSE PLACES * 

* the CHARACTER(S) ON thf 'ATOMLIST' LIR * 

* AND INSERTS THE POTNTER TO this NEW CELL. * 



4:^: 3(:*^t5!tJ^)!t^C55c^*^<3}:5!t^t^t5!t3jc){i:5!o!i:^ev***’f'** ’S'**#** ******/ 

DCL STRING ENTRY ( CHAR (*) VAR ) RETURNS ( PTR ) : 

STRING: PRCC(C) D T° : 
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DCL C CHAR(*) VAR , (0 D TR , L C 1X C D BIMJSTATIC: 

IF TRC THEM 0T S D L AY ( ' STPI NG * M C I I ' AT LEVEL ' I I LFV ) 
0 = LOOKUP ( C ) ; 

ALLOCA T E CONCELL SE T ( D ): 

L = LENGTH ( C ) : 

IF L > 1 THEN 

IF FLO THFN ATOMB = 'll'R: 

EL S c ATOMB = *01 'B: 

ELSE ATQMB = '01 * P l 
CORF = NIL; 

LEVEL = LEV; 

IF 0 = NIL then oo; 

CSIZE = L; 

ALLOCATE ATOMCELL S c T(Q); 

0- >NEXT = ATOMLI ST: 

0->PNAME = C; 

ATOMLIST = 0: ENO; 

CARF = 0; 

RETUP N( P ) ; 

END STRING: 

* PROCFDUPE WHICH SEARCHES THROUGH THE * 

* 'ATOMLIST* LIST to FIND THE CELL LOCATION * 

* OF THE INPUT CH AR AC T ER ( S ) . * 

# £ £ jjc # %% 3$: ## # afcjfca?: / 

DCL LOOKUP FNTRY(CHAR(*) VA D ) PE TUR NS ( PT R ) : 

LOOKUP: PROC(C) PTR : 

DCL C CHAP(*)VAR,Q PTR STATIC; 

0 = ATOMLIST: 

DO WHILE (Oi=NI L) : 

IF 0->PNAME = C THEN RETURN ( 0) : 

' 0 = 0->NEXT; END; 

RETURN! NIL) ; 

END LOOKUP: 



* PROCEDURF WHICH SCANS THE INPU T RUFFE® * 

* AREA AND PE T URNS VALID CHARACTER S T R I NGS * 

* WITHOUT RLANKS TO the CALLING POINT. THE * 

* VALID CHARACTER STRINGS ARE SINGLE SP C CTAL * 

* (EXCEPT •-') AND ALFANUM<=RIC STRINGS * 

* INCLUDING THE CHARACTER * * 



DCL SCAN RETURNS! CHAR ( 80JVAR) : 

SCAN: PROC CHAR! 80) VAR; 

DCL ( ( BP INIT172) ,B)FI XED BIN,(T CHAR(l), 

BUFF CHAR! 72) ) ) STATIC : 

B = 0 ? 

D0’WHILE(B=0) : 

IF BP >= 72 THEN 00: 

BP = 0: CALL INPUT(BUFF): END: 

BP = BP+1 : 

IF SUBSTR(BU CC iBP,l )-'=' ' T HFN B = BP; END: 
T=SUBSTR ( BUFF ,B,1 ) : 

IF T < 'A' £ T -,= THEN RFTURN(T): 

DO WH I LE ( B P<72 E t ' * £ (T = »-' I T >=»A')): 
BP = BP + 1: T=SUBSTR ( BUFF ,RP t l ) : END: 

BP = BP- 1 : 

RETURN! SUBSTR (BUFF , B,BP-B+1 ) ) ; 

END SCAN: 



* PROCEDURF WHICH CONSTRUCTS A CONNECTIVE * 

* CELL (A CELL WITH A 00 ATOMR FIELD) * 

* WITH THE INPUT ROINTEPS AND T HE * 

* CURRFNT LEVEL. * 



DCL CONS ENTRY! PTR, PTR) RETURNS ( PTR ) : 
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CONS: PROC ( A » B ) PTR : 

DCL ( A , B ) PTR : 

ALLOCATE CONCELL SET(P): 

ATOMB = ' 00 ' B : 

LEVEL = LEV: 

CAR F=A : 

CDRF=R; 

R ETURN( P ) : 

END CONS: 

/************************************************** 

* PROCEDURE WHICH RETURNS THP POINTER * 

* CONTAINED IN the CARE F I FLO OF th= * 

* SPECIFIED CELL. * 

**************************************************/ 

DCL CAP ENTRY! PTR ) RETURNS ( PTR ) : 

CAR: PROC! A) PTR : 

DCL A PTR; 

IF A=NI L THEN RFTURN(NIL): 

IF A->ATOMB THEN RETURN! NI L) : 

RETURN! A->CAPF) : 

END CAR : 

/************************************************** 

* PPOCFDUP c WHICH RETURNS THE POINTER * 

* CONTAINED IN THE CDRP FIELD OF THE * 

* SPECIFIED CELL. * 

&##jfc^5fc:fc#^3{c3fc#£##3fc###3fc##3fc:ic3{c3$c5{c3$cjje^2$c#3$:3!c3$c3$:5!c:$ei!ij£3fc:{:3{c3{c:fe3$c3{c:fc3$e:$c/ 

DCL CDR ENTRY(PTR) RF T URNS ( p TR ) : 

CDR: PROC(A) PTR; 

DCL A PTR: 

IF A=N I L THEN RE T URN(NTD: 

R FTURN ( A->CD D R ) : 

END CDR : 

3$: # * 3$c £ * £ 



* PROC EDUR C WHICH RETURNS T HE POINTER * 

* CONTAINED IN THE CARR FTELO OF THE CFLL * 

* POINTED TO BY THE CARF FIELD OF THF * 

* SPECIFIED CELL. * 



************************************************** / 

DCL CAAR ENTRY! PTR ) RE TURNS ( PTR ) ; 

CAAR: PROC(A) PTR; 

DCL A PTR: 

IF A * NIL THEN RFTURN(NIL): 

A = A- >C AR F : 

RETURN! A->CARF ) ; 

END CAAR; 

/************************************************** 

* PROCEDURE WHICH WILL PRINT OUT ALL r, F T HF * 

* INDIVIDUAL CHARACTERS ON THF LIST SPECIM'D. * 
**************************************************/ 

DCL PR INT ENTRY! PTR ) ; 

PRINT: PROC ( A ) RECURSIVE: 

DCL A PTR; 

IF A-»=N I L THF N 

IF A->ATOMB THEN CALL OUTPUT ( SYMROL ( A)] : 

EL SF DO: 

CALL PRINT! ( A->CARP) ) : 

CALL PRINT! (A->CDPF) ) ; FND : 

END PRINT; 

/ *************************************************** 

* PROCEDURE WHICH RE T URNS thf CHARAC.tfrs * 

* CONTAINED IN T H P PNA^E F I P L D r»F THP * 

* ATOMCELL SPEC I C I ED * 

**************** ***********************************/ 
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DCL SYMBOL ENTRY(PTP) RETU D NS(CHAR( Q 0)VAE) : 

SYMBOL: PROC(X) CHAR(80)VAR: 

DCL ( X t Y ) P TR : 

I<= X= N I L THFN RETURN! 'NI L') : 

Y=X- >CAR P : 

RETURN( Y->PNAME ) : 

END symbol; 

£5^ jjcjjc # 

* PROCEDURE WHICH IS USED TO CALL TH«= * 

* PROCEDURE TO FORM the LIST STRUCTURE. IT * 

* IS ALSO USED T 0 ESTABLISH A POINTER to THE * 

* MULTIPLE DEFINITIONS LIST DURING T H C * 

* THE INITIALIZATION PHASE. * 

jjojcjfejjoJcJcsfcjto!'## ###*$##*# jfsAjftA## ##>(■:# ##**** ***#$&* V; # # *£##/ 

DCL READSS ENTRY RETURNS ( °TP ) ; 

REAOSS: PROC PTP RECURSIVE; 

DCL ( ( 0 ,P ) PTR tCK FIXED «I N I NT T (0 ) ) ST AT I C ; 

ERR = ' O'B : CK = CK+l ; 

0 = S FXPR ! *0'B) : 

IF ERF THEN CALL OUTPUT! 'ILL FQRMFD EXPRESSION'): 



IF 



CK 

PP 

IP 



= 1 then DO 
t L 3 = 0; 

TRI THEN DO: 

P = CAAP ( ( L? ) ) 
DI SPLAY! ' F T R ST 



ITEM ON MULTIPLE DEFINITION ' 



CK 
ERR = 



I I 'Ll ST ' | I P->PNAMF) : END: 
= CK+l; END: 

' C ' B ; CK = CK-1 : 



RETURN(Q) 

END READSS; 

/ # 3$C # J$C A 3$C # 5$C *. # 3$C * # # # # # 3$C 3$C # * # # # 3?C 'k # # # # * # # J$C £ # £ # * * 3$C * % # # 5*t * J$C 3?C 

* PROCEDURE WHICH IS USED TO CALL THE LEV C L * 

* ZFRC PROCEDUPF WHTCH BUILDS the LIST * 

* STRUCTURE AND CONTROLS T HE DURATION O c * 

* THE BUILDINO,. * 

DCL READS ENTRY RETURNS! PTR) : 

READS: PROC PTR RECURSIVE: 

DCL 0 PTR STATIC: 

ERR = 'O'B; 

0 = S EXPP ( ' 1 • B ) : 

IF EPF THEN CALL OUTPUT! 'ILL 
DO WHILE ( SC AN-i= ' T ' ) : END: 

FRP = 'O'B: 

RETURN! 0) : 

END PEAOS: 



FORCED EXPRESS ION' ) 



-s'; i £***:}: :fc){5 ** j$ojc:fc5{:5{<iti a):#* J* s!oJ;a5t:£jf-*j$c 

* PPOCEDURp WHICH BUILDS th<= 'LISP LIKE' * 

* STRUCTURE OF THE LISTS USED BY the PROGRAM. * 

##**£##***#****£**$*#**£** I**#*##** *$***#*** Jr##**** / 

DCL S EXPR ENTPY(BIT(1) ) RF T U R NS ( P T R ) ; 

S EXPR: PR OC ( D0 T ) P T R RECURSIVE: 

DCL DOT BI T ! 1) t(0,R)°TR , (T, SYMJTHAP !RO)VAP STATIC: 
DCL RIGHTSIDF RF TUR NS ( CT R ) : 

R IGHT SIDE: PROC P T R : 

DCL P PTR; 

I F DOT THFN °E T UR N ( 0) : 

R = S FXPR! 'O'B) ; 

IF FRP THEN RETlJRNfNI L) : 

LEV = 0->LE VE L : 

P = 0->CARE; 

IF TR C THEM DT S P L A Y ! ' LE E T C ONNFC T I VF SYMROL ' 
1|P->PNAME|I' AT LEVEL' I ILFV) : 

IF R -,= NIL T HF N 

IF R->LE VF L = LEV+1 THEM DO: 
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0->CDRF = R : 
p = S pxpr ( 'O' P) : END: 

RETURN(CONSTO,P) ) : 

END p IG.HTSIDE ; 

T=SCAN: 

IF T= M • THEN DO: 

0=S E XPR ( ’O'R) : 

IF FRP THEN RETURN(NI L) : 

RETURN! RTGHTSID5) : END: 

IF T = •<• THEN DO: 

LEV = LEV +1: 

RETURN! READSS) : END: 

IF T = ' > • THEN DO : 

IF DOT THEN ERR = 'l ' B: 

ELSE RETU P N( NI L) : END: 

IF T= • ) • THEN DO: 

IP DOT THEN c RR = ’1 *B : 

ELSE RETURN! NT L) : END: 

IF T = » / • THEN DO: 

SYM = SCAN: 

L 3 = PP: 

ENC ='1'B: 

0 = CAR (LOOK LIS T (L3tSYM) ) ; 

ENC ='0’B: 

R = S E XP° ( 1 0 ' B) : 

RETUR^(CONS( 0»R) ) : END: 

ELSE DO: 

IF T = ' N! L ' t HFN 0 = NIL: 

ELSE 0 = STRING(T) : 

RETURN! p IGHTSIDE) : END: 

RETURN! NI L ) : 

END S_E XPR : 

/ # 5^ 3}c %c sjs if ik j$e # s}c # ajc £ # jfc # * * £ # rfe # ip, sfe # & * sk # 3*c # 5b >5e # # # £ # 

* PROCEDURE WHICH IS USFD TO CONVERT TH c TT E MC * 

* IN THF LIST STRUCTURE INTO A FORMAT CAPABLE * 

* OF BEING PR T N T E D out. * 

DCL BUILD ENTRY(PTR,BIT(1 ) ) RETURNS ( CH A p (! OOO ) V AR ) : 
BUILD: PROC(P,B) CH AR ( 1 000) VAR RECURSIVE: 

DCL P PTR ,B BIT!) ) : 

IF P =N I L THEM RE TUR N ( • NI L • ) : 

IF ATOM ( P ) THFN DO: 

IF P -»=NI L f. P->CDPF -i = NI L THFN RE T URN(SYMBOL (P) 

I I '<• I (BUILD! P->CDRF, *1*B) I (•>»): 

ELSE RETURN! SYMBOL! P) ) : END: 

IF ATOM ( CDR ( P ) ) THEN 00: 

IF C DP ( P) = NI L TH C N 

IF B THEN RETURN! BUI LD(CAR ( P) , '0 • B) ) : 

ELSE RETURN! • ( • I |BUILD(CAP ( P) , '! ' B) I « ) * ) ; END 
IF B THEN RE T URN( FIJI LD( CAR! P) » '0 ' R) I I ' »|l 

BUI L D( CDR ! P ) , '1 *B) ) : 

RETURN! •( • | IBUILOCP,*! * B ) II * ) * I : 

END BUILD: 

* PROCEDURP WHICH IS USED TO CALL TH C 

* PROCEDURE WHICH IS USED T 0 PRINT OUT T H c 

* ITEMS structured BY THE build procedure. 

DCL PRINTS ENTRY(PTR) ; 

PRINTS: PROC(A): 

DCL A P TR * B CHAR (1000) VAR ,( L, I ) STATIC PIXEO BIN: 
DISPLAY! 'FORMATI NG LIST FOR PRINTING*): 

IF TRI THEN DISPLAY! 'DICTIONARY PRINTING TAKES » 

1 I 'A LONG TI ME • ) ; 

B = BUILD(A , »0»B) : 

L = LENGTH! B) : 

DO 1=1 TO L BY 60: 

CALL OUTPUT! SUBSTR(B, I ,MTN(60,L-T+1) )) ; END: 
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IF FLD THEN CALL OUTPUT'S'): 

END PP INTS : 

* PROCFDUR c WHICH IS USED TO SEARCH DOWN A * 

* SPECIFIED LIST TO FTND THE CHAR ACTEP (S ) * 

* SPECIFIED RY the PARAMETER. t HE POINTER TO * 

* THE NF XT I TF M 'DOWN ' THE LI T S PETUPNFO. * 



DCL LOOKLIST E N T RY ( P T R , CH AR ( *) VAP ) PFTURMS ( P T R ) : 
LOOKLIST: PROC(P,C) PTR: 

DCL (P,0,R)PTR t C CHAR (*) VAR: 

DO WHILE ( P-%=NI L ) : 

0 = P->CAP F : 
r = CA ar ( ( P) ) : 

IF R ->P NAME = c THEN RETURN ( 0->CDR F) : 

ELSE IF -nENC THEN 

IF 0->ATOMR = ' ] 1 ' B THEN 
IF L3 = NIL THEN DO; 

L 3 = CONS(OtNIL) : 

L3->LEVEL = 1 ; END; 

ELSE DO: 

L3 = C0NS(0,L3) : 

L3->LEVEL = 1 : END: 

P = P->CDP c : BP = p; END: 

RFTUPN( NIL) : 

END LOOKLIST: 

* PROCEDURE WHICH IS USED TO ATTACH TO ALL * 

* ITEMS ON THP »L2' LIST ( THE USER DFFIN8D * 

* LIST) ANY AT T RIRUTES OF THAT T TEM FOUND ON * 

* THP 'Ll' (DICTIONARY) LIST. * 

DCL ATTRB ENTRY: 

ATTRB: PROC: 

DCL ( P ,Q,R ,S»T) PTR ,C CHAR (2 0) VAR , L FIXED n I N, 

Cl CHA.R( 1) : 

R = L2: L3 = NIL: 

DO WH I LE ( R -> = NI L ) : 

P = LI: 

S = R->CARP; 

T = CA AR ( ( R) ) : 
c = T->PNAMF; 

L = T->SIZE; 

DO I = 1 TO L : 

Cl = SUBS TP ( C 1 1 ,1 ) : 

0 = LOOKLI ST( R,C1 ) : 

IF 0 = NT L THEN DO; 

DISPLAY( 'ATTRIBUTE NOT FOUND FOR ** MIC) 
00 TO L PI : END: 

ELSE P = 0: END: 

0 = LOOKLI ST(P , ) ; 

0 = DELETP(O) : 

IF 0 = NIL THEM $->CDRF = L3 : 

ELSE DO: 

IF L3 -^= NIL then DO; 

S->CDRF = L3 : 

DO WHI LE ( L3->CDRF-i=NIL) : 

L3 = L3->CDRR; FMD: 

L3->CDPP - 0: END: 

ELSE S->CDR p = 0: EN n : 

DISPLAY! 'ATTRIBUTES FOUND c Q D MIC): 

LB 1 : P = R->CDRF: L3 = NIL: END: 

END ATTRB: 



* PROCEDURE WHICH 7 R USED TO D c L?te crqu the * 

* LIST OF ATTRIBUTES t HOSF ATTRIBUTES WHICH * 

* WERE PICKED UP DUPING THE SEARCH WHICH DO * 
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* NOT APPLY TO THE SPECIFIC ITEM. * 

DC L DELETE ENTRV(PTP) RETURNS! PTP) : 

DELETE: PPOC(Q)PTR: 

DCL <P,Q,R,S,T,BO)PTP,C CHAR ( 20 ) V AS : 

BO = 0; 

DO WHILE ( 0 -.= NT L) : 

S = CAAR( ( 0) ) : 

IF SUBSTR! s->PNAME ,1 ,1 ) = »-» THEN DO: 

BO = 0->C DP F ; 

C = SUBSTR! S->PNAME,2) : 

P R = L 3 * 

’ DO WHILE (R -.= NI L) ; 

T = CAAR ( ( R) ) : 

IF t->pnamf = c then DO: 

T = P->CDRP; 

IP P = R THEN L3 = T; 

ELSE P->CDRF = t ; 

GO TO LB?: END: 

ELS<= R = P->CD RF ; END: 

LB 2 : 0 = BO; END: 

ELSE RETURN! BO) : END: 

RETURN! BO) ; 

END DELETE: 

* PROCEDURE c OR THE ON LINE EN T RY OF ITRMR 

* INTO THE DICTIONARY LIST STRUCTURE. 

* 5j( # # :$c # # % # %c J(c # # :}: # # njt jjc £ sjc £ £ £ £ £ £ £ £ * £ £ * £ £ £ £ £ £ * 5{e £ £ £ £ £ £ £ £ £ 

CCL DEFINE ENTRY: 

DEFINE: PROC RECURSIVE: 

DCL Cl CHAR(l) : 

DISPLAY! 'ENTER WORD FOR DIC T IONARY ENTRY') 

REPLY! I D T ) ; 

L = LENGTH! TPT) ; 

BP » L 2 = LI : 

DO I = 1 TO L: 

Cl = SUB STR ( I D T 1 1 ,1) t 
L 3 = LOOKLI ST! L2 ,C1 ) : 

IF I =1 THEN PP = L3; 

IF L 3 = NI L THEN DO: 

IP BP = L2 TH=N TPT = SUBSTR! I PT,1 , I ) ; 

ELSE IPT = SUBSTR(IPT, 1,1-1); 

DI SPLAY! 'LETTERS ALREADY IN DICTIONARY « | I I 
CALL PR I NTS ( P P ) : 

DI SPLAY! 'ENTER REMAINDER op WORD AND ' 

I I 'ITS ATTRIBUTES IN DICTIONARY FORM'); 
BP->CDRF = READS: END: 

ELSE «P,L2 = L3 ; END: 

CALL PRINTS! PP) : 

DISPLAY! 'DICTIONARY COMPLETE = 0, ELSE 1«) 

REPLY! TPT) : 

FLD = IPT: IPT = ” : 

IF FLD THEN CALL DEFINE: 

END DEFINE: 

f if i*ifififififififififi^i^ifififififififififififififififififi^ixififififixi£.itifitifififitififitif 

* PROCEDURE WHICH TS USPD TO CALL THE HAS HX 

* SUBROUTINE TO RETRIEVE THE NUMERIC Cpnc 

* WORDS ASSOCIAtpq WITH THE tqpic NAME. 
££££££££££££££££££££££££££££££££££££££££££££££££££ 

TABLP: PR n C (C ) ; 

DCL C C HA R ( ? 0) , TRLCODE FIXED BIN INIT(O): 

CALL HASHXIC ,C n DE ,5 ,1 ,1 , TBLCODE ) : 

IF TBLCODF = 0 THP N DISPLAY!' "OP^C NAME AND ' 
H' NUMERIC CODE WORn ££ «j!C): 

ELSE DISPLAY! » ** TDPTC NOT IN TABLE ** 'I 1C): 

END TABLE; 
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^ o ** 



* DECLARATION OF TH e GLOBAL VARIABLES USED * 

* AND DISPLAY O c COMMAND REQUESTS TO TH c * 

* OPERATOR. * 

DCL (Ll»L2»L3 t RP,PP)PTR,STNAME CHAP ('-0 ) , IPT CH AR ( BO ) V fto , 
( TRC,ENC ,TRI ,ERP , C LD t TRL,DC T ) BIT (1) , 

( T,L,LFV,TRLSI7E) p IXED PIN: 

TRC,TRI ,ENC,ERR, c LD,TBL»DCT='0'R: LEV=0: TPL C IZE=11: 

* jfc: * ^ # 3?c # * & # £ * # # 5fc*3fc#jfc 

* INITIALIZATION OE THE DICTIONARY LIST 'Ll'. * 

5ji* # a|c# A# # #####£##£# / 

IF PARMS ->= '• THEN DI SP L A Y ( ' E NTFR 0°TI0NAL PAP A MFT FR C ' ) 
REPLY! I P t ) ; 

I*= I P T •• THEN GET STRING(IPT) DATA ( T RC ,T P I , FLD, 

TBL DC T ) : IDT = ' • ; 

CALL IN I T ; 

/£*#:<£ *£*£#***#£****:$:$ *#*#*****&*:&#**>!:**£****£:$: sSt#*:#* 

5jt # if :£ If. # if. £ :£ £ * jjs $ # $ * j}c * * # $ # # * sft jj< # * sic sjc s|c * £ 5^ * * £ * 3?i jje # * # # ^ A * 4: $ * 

** ROUTINE P OR THE OPERATION OF THE PROGRAM. ** 

DO WHILE! ' 1 *B) : 

DISPLAY!' •); 

DI SDLAY! 'ENTER NAME AND SMC NUMBER*) RE PLY ( ST NAMF ) : 
DISPLAY!' •): 

IF TRI THEM D I SPL A Y ( ' E NTER OPTIONAL PARAMETERS,' II 
'IF NONE THEN RETURN') RFDLY(IPT); 

IF IP T •• THEN GET STRING ( I PT) DATA! T RC, EMC, 

TR I , F LD , TBL , DC T) : IP T = ' ' : 

IF DC T THEN CALL DEFINE: 

ELSE DO: 

L2=R EADS : 

CALL PRI NT! L2 ) : 

IP ATOM! L 2) THEN IF SYMBOL ( L2 ) = ' STOP • THEN EXIT: 
DISPLAY! • '): 

D I SPLAY ( 1 * ); 

DISPLAY!' 'MSTNAMF): 

DISPLAY! ' , ); 

DISPLAY!' •): 

CALL ATTRB : 

DISPLAY!' •): 

CALL PRINTS! L2 ) ; END: 

IF TBL T HEN CALL TABLE!' ** TOPIC NAM= ** •): 
DISPLAY!' '): 

DISPLAY!'** AT THIS POINT YOUR REQUEST WOULD' |! 

' BE PASSED TO THE ' ) : 

DISPLAY!' TRANSLATION AND TABLE SEARCH *|| 
'ROUTINES. **'): 

DISPLAY! » ' ) : END ; 

END LIB_SEP: 
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/**************************** 
*************************************************** 
jJcjfc jJcjjc 

A* TABLE PROGRAM ** 

** ** 

* * * * * if * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

******* ******************************************* f 



TABLE: PROC(PARMS) OP T I ON$( MAI N) : 

CCL CODES FILE STR FA M ENVIRONMENT <F<«0)): 

DCL ( TRC, SWT)R IT(l ) t (CODE (11 ), ALFA) CHAR (20) , 

( I,DATASI7E ,NRKFY,TRL$I 7F , T YPQP , T EL CODE ) F I X F D BIN, 

( PARMS, IPT)CHAR( 2) VAR : 

f *************************************** *********** 

* DECLARATION OF A PILE CONTROL BLOCK FOR * 

* USF IN THE READIN OF THE EXTERNAL PILE. * 

if. if. -if. -if. -if. if afe # j}e if. # * * # Jk # # j}c # * a): j}c £ $ ■% -fa >}ojc # * at; jfc A £ jjt jj> % jjc # ♦ #>}< ★ ★ * # / 

DCL 1 FCB STATIC, 

2 COMMAND CHA R ( 8) . 

2 FILENAME CHAR ( B j I MI T ( ' CODE S • ) , 

2 FILETYPE CHAR(B) I MI T( 'DATA' ) , 

2 CARDNUM FIXED PIN, 

2 STA T US FIXED PIN, 

2 CAR D_BUFF ER CHAP(PO); 

/**************************^Z***** *********** ******* 

* PROGRAM OPERATION * 

IF PARMS -.= •• THEM TR C = 'l'B: 

ELSE TRC = ' 0 ' B : 

TBLSI7E = 11? TBLCODE = 0; 

DATASIZE = 5; NRKEY = 1; 

/ * * * * * jje £ * * * * # £ * jjc # a}e ajc $ ajc * # £ * # * * jjt * jit * * ^ # Jjc Jjc jjc j}c # jjt * s(c* * # * * # 

* ROUTINP TO READ THE CODES FILE INTO THE * 

* ARRAY FOR USE DURING THE PROGRAM. * 

£ $ # ajc a(c * s£ # j)c * a)c # jfc sfc * afc * >Jc * # =Jc # * aje s$c £ jfc )Jc # a}: if. j(c if. if ^ * jfc * ajc £ * j[c # ★ ♦ + £ / 

DISPLAY( 1 INITIALIZATION OF THE CODE ARRAY'): 

COMMAND = 'RDBUF ’ 5 

DO I = 1 TO TBLSIZE: 

CARDNUM = I ; 

CALL IHEFILE(FCR) : 

CODE ( I ) = CARD BUFFER: 

IF TRC THEN DISPLAY! *CODE( ' I ! I I I ' ) ' I I CODE ( I ) ) : END 

COMMAND = 'FINIS' : 

CALL IHEFI LE( FCB) : 

DISPLAY( 'COMPLETION OF INITIALIZATION'): 

/ J{t:(c:fc5(tJ(c:icj(c5(c:fc5(cjSrj(e5f:s!e3{e;jc # jjssijajojc X: * ^ * ^ *=(:***♦ ^ >*: 3(< ^ ^ 

* ROUTINE WHICH ALLOWS THF CONTINUAL S TQR F t * 

* DELETION, OR RETRIEVAL OF ITFMS FROM thf * 

* ARRAY UNTIL THE OPERATOR IS FINISHED. * 

jfc#:fc3(cjfc#:fr##Jtc£5{£#5!c)^:5({>(:4esfc^jfc:fc:fc^>}r:fc£}S)fC5fc#5!e>!t£&*sfc5«;,}c5(c:j:>f:*s(cy«*3fc3fc;({:fc/ 

SWT = ' 1 ' B ; 

DO WHILE( SWT) : 

DISPLAY ( 'ENT C R type OF OPERATION: STORE =0 , R ETR I EVE= 1 
I I ' ,DELEIF=-1 ' ) RPPLY(IPT): 

TYPOP = IPT : 

DISPLAY! 'ENT C R I T EM REQUIRED') REPLY (ALFA) : 

IF TRC THEN DI SPLAY( ’ CALL HASHX'): 

* THE FOLLOWING ARE THE PARAMETERS REQUIRFD: * 



46 



* ALFA = I TF M UNDER CONSIDERATION 

* COPE = THE T A BLF ARRAY A D E A 

* OATASI ?E = NUMBER of COMPUTFR WORDS IN 

* THF ITEM BEING FONSTDEREO 

* NRK C Y = NUMBEP OF ITEMS, NORMALLY ONE 

* TYPOP = TYPE OB OPERATION 

* TBLSI7E = THF TABL C SI7F (PRIME NUMBER) 

* TBLCODE = THE T ABLE CONFIGURATION COPE 



( 0 ) 



* 

# 

4. 

T 

* 

* 

* 

* 

* 






CALL HA SHX( ALFA ,CGDE ,OATASI 7E ,NRKBY ,TYPPR,TRLST 7E, 
TBLCODE ) : 

jjcajc 5{c:fc:fc5}:5i:*Tfc:(t:$:4::{ci(ci::a::>!<!(e5!f £ A#### 



* THE FOLLOWING, ARE THB TABLE COPES WHICH * 

* RESULT FROM THE CALL TO HASHX: * 

* 0 = OPERATION SUCCESFULLY COMPLETED * 

* 1 = T ARLE IS BULL * 

* 2 = ITFM IS N0 T IN THE T AR L c * 



D!SPLAY( 'TABLE CODE ' | | TBLCODE ) : 

IF TYPOP = 1 THEN D I SPL A Y ( » RE TR I E VE D ITEM AND CODE 
I I ALFA ) ; 

D I SPL AY ( 'IF FINISHED ENTER o, ELSE 1') REPLY ( I °T ) : 
SWT = I PT : end: 

5$C 5$f}?c 3?c^3^ ££ s$c jfc# 5{c ajc 5$C*& 

* ROUTINE USED tq WRITE THE APRAY BACK INTO * 

* THE COOES FILB. * 

A£** AAA A A £*£*■£* / 

COMMAND = 'ERASE' 5 
CALL IHEFILE(FCB) : 

COMMAND = ' WRBUF ' ; 

DO I = 1 TO TBLSI7E: 

CARDNUM = I ; 

IB TR C THEN DISPLAY! 'CODE( ' I I I II ') ' I I CODE <111: 

CARD BUFFER = CODE ( I ) : 

CALL IHEFILE(FCB) : END; 

END TABLE: 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

GN1 

* 

GN1 



❖ 

GN2 

* 

GN2 



♦ 



GN3 

* 

6N3 



* 

GN4 

❖ 

* 

GN4 



* 

RN5 
GN 5 






** 

** 

## 



#* 

HASHX SURR OU T I N c ** 

** 



##5}:## *## yofc# ##5 $cj$o$c#;$;#*j$< j^c# ###£#*#&##£& #*###### ##•$:### / 



MACRO 

HAKFY 

MACRO 

LM 

LM 

XR 

SR DA 
D 

LR 

MR 

C 

BNL 

LCR 

LR 

AP 

MEND 

MACRO 

KEYCK 

MACRO 

LM 

CL 

BNE 

CL 

BNE 

CL 

BNE 

MEND 

M A C R n 

HCOLL 

MACRO 

AR 

CR 

BNL 

BXLE 

SR 

LR 

AR 

B 

MEND 



MACRO 
MVCHA 
MACRO 
OR 
AR 
EX 
B 

M VC 

SR 

AR 

BCT 

B 

MEND 



USED 
A, 5, 
6,7, 
6,7 
6,32 
6, TE 

7.6 
6,2 
7 , = c 
* + 6 

7.7 

12.7 

12,1 



SB P 1 
USED 
8 , 10 , 
8 , 0 ( 1 
f.BPl 
9,4( 1 
E BP 1 
10 , 8 ( 
SB PI 



TO C CN STRUCT THE HASH CODE DISPLACEMENT 
TFMP+2- LOAD T H E COLLISION CONSTANTS 
ESTABLISH HASH CODE INngx 
REDUCE THE KEY TO ONE WORD 



0 ( 11 ) 

MP+12 

'O' 



HASH CODE INDEX 

HASH TABLE DISPLACEMENT 

LOAD COMPLEMENT IF NEGATIVE 
ESTABLISH HASH TABLE FN T RY POIN T 



TO COMPARE T HE Input WITH THE STORED Ttfm 
0(11) LOAD THE C IRST thrp<= WORDS OF DATA 
CHECK THE c ! RST wnpn TOR MATCH 
NOT SAME 
SECOND WORD 
NOT same 

COMPARE THE THIRD W^RD C 0R MATCH 
BRANCH IF NOT S AM F 



2) 
2 ) 
12) 



BRANCH IF 
CHECK THE 
BRANCH IF 



SBP2 

USED 

4,2 

4.5 
F,B°3 
7,4, 

7.5 
12,7 
12,1 
EBP 2 



G^ P3 

’to COMPUTE the COLLISION DISPLACEMENT 

ADD DATA SI7E T 0 LOWER COLL CONST 
CHECK TO SEE IF WITHIN TABLE AR F A 
IF N0 T GO TO T A BL E FULL R 0U T I ME 



4+ 6 



RECOMPUTE NEW HASH TABLE ENTRY 



ER1 , EP2,SRP1 
USED TO MOVE 
FROM HASH 
2,1 
2,4+8 
4 + 10 
0( 1,ER1 
2,1 
11,2 
3, f.BPl 
EXIT 



THE DATA FROM INPUT t 0 HASH TABLE 
TABLE TO OUTPUT 

REDUCE NUMBER OF CHAR BY ONE 
MODIFY THE NUMRFR nc CHAR MOVED 



) , 0 ( 



S R2. ) 
RESTORE 



THE NUMBER OF CHA° ACT ERS 



CHECK TO S C E ic ALL DATA PROCESSED 
I p FINISHED BRANCH TO EXIT ROUTINE 



MACRO 

TPLFUL SNR 
L 1 , TE MP+ 1 6 

L 2 , =F ' ENR . ' 

ST 2,0(1) 
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8 F XI T 

MEND 

* 

* AFTER INITIALIZATION T HE c OLLOWTNG ARP T HE 

* REGISTER ASS T GNMpN T S. 

* R-0 CONTAINS A C ON S TA N T BLANK P OR COMPARISONS 

* R-l CONTAINS A CONSTANT MINUS ON p 

* R-2 CONTAINS t HE DATA LENGTH IN RY T ES 

* R— 3 CONTAINS THE NUMBER QF ITEMS T 0 BE PROCESSED 

* R-4 CONTAINS A COLLISION CONSTANT ( ( d*-1 ) / 2* D 2 > 

* R-5 CONTAINS A COLLISION CONSTANT <P#*R2) 

* R-U CONTAINS THE CURRENT D A T A ADDRFSS 

* P-12 CONTAINS THE HASH CODE DISPLACEMENT 

* R-13 CONTAINS THE PROGRAM BASE ADD pc SS 

* P-14 CONTAINS THE DATA RASE ADDRFSS 

* R-l 5 CONTAINS THP HASH TABLE BASE ADDRESS 

* R-6 TO R-l 0 ARE WORKING REGISTUPES 

* 

HASHX C SEC T 





USING 


* * 1 5 






B 


1 2( 0,15) 


BRANCH AROUND IDENTIFIER 




DC 


AL1I6I 






DC 


C L 6 ' HA SH X ' 


IDENTIFIER 




STM 


14,12,12( 13) 


SAVE REGISTURES 




LP 


12,13 






CNOP 


0,^ 






RAL 


13, *+76 






DROP 


15 






USING 


*,13 






DS 


18F 






ST 


1 3,8( 12) 






ST 


12, 4( 13) 




* 


BEGIN 


PROGRAM 




¥ 


LM 


14,15,0(1) 


LOAD KEY ADDRESS AND HASH TABLE BASF 




LM 


2, 6, 8(1) 


LOAD PARAMETERS 




L 


2 , 0( 2) 


LOAD KEY AND DATA ST7F 




L 


3 , 0 ( 3) 


LOAD NUMBER OF KFYS OR nATA 




L 


4, 0(4) 


LOAD TYPE OF Op(RPT=l,ST=0,DEL=-l) 




L 


5 , 0( 5) 


LOAD TABLE SIZE (PRIMP NUMBER) 




CNOP 


0,4 






B 


* + 36 




TEMP 


DS 


8 F 


STORAGE SPACE C 0R PARAMETERS 




STM 


2, 6, TEMP 






SLA 


2,2 


KEY/DATA SIZE TIMPS fqijR 




ST 


2 , TE MP+20 


TEMP STORE O c DATA SI7- IN RYTES 




LR 


7,5 


ESTABLISH COLLISION CONSTANTS to U 




RCTR 


5,0 






SR A 


5,1 


SUBTRACT ONE FROM TABLE SIZE 




MR 


4,2 


MULTIPLY TABL.F SI7F RY DATA SIZF 




SLA 


7,2 


MULTIPLY TABLE SIZE BY c OUR 




MR 


6,2 


MULTIPLY 4-TABLE SI7E BY DATA SIZE 




ST 


5 ,TPMP+24 


« — TEMP STORE OF CONSTANTS 




ST 


7 , TE MP+2 8 






LR 


11,14 






L 


1 , = P '-1 ' 


ESTABLISH CONSTANT MT NUS ONF 




L 


0 , =C • ' 


establish constant blank 




L 


6 , =F ' 0 ' 


establish ZERO CONSTANT 




C 


6 , TE MP+ 8 


CHE r K TO S C F ic STORF noFRATTON 




BE 


L0P1 


BRANCH TO STORE ROUTINE 




C 


1 , TFMP+8 


CHECK TO SEE I c DF LET OPERATION 




BE 


OELT 


BRANCH TO DEL CT I ON RQUTIN C 


ic 


B 


RTRV 


BRANCH TO RETPIEV C P0U T 1N C 


* 

jjr 


STORAGE ROUTINE 




•T* 

LOP1 


HAKEY 






LOP 2 


C 


0,0( 12) 


CHECK f dr p MPTY SIOT 




BE 


* + 16 


IF p MPTY BRANCH TO CHARACTER MOVE 




C 


1,0(12) 


CHECK TO SEF IP ITEM DELETED 
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IF DELETED BRANCH TO MOVE ROUTINE 
BRANCH TO FULL SLOT ROUT INF 





BE 


*+e 




B 


F SLT 




MVC.HA 


12, 11 ,L0P1 


FSL T 


K EYCK 


CLS2 




M VC HA 


12, U,L0P1 


CL S 2 
* 


HCOLL 


L OP 2 , T c L1 


* 


RETRIEVE ROUTINE 


PTRV 


HAKEY 




L0P3 


KEYCK 


CLS1 




MVCHA 


1 1 , 1 2 ,R T R V 


CL SI 
* 

* 


HCOLL 


L0P3,TFL2 


DELETI 


ON ROUTINE 


* 


DELT 


hakfy 




LOPA 


KEYCK 


CLS3 




ST 


1 ,0( 12) 




ST 


1 ,4< 12) 




BCT 


3 ,DELT 


CL S3 
* 


HCOLL 


L OP A- , TF L2 


❖ 


TABLE 


FULL ROUTT NF 


* 

TFL1 


TBLFUL 


1 


TFL 2 
* 


TBLFUL 


2 


* 


RETURN 


1 ROUTINE 


* 






EXIT 


L 13, M 13) 




LM 


14, 12,121 1 3) 




M VI 


1 2( 13) ,X*ff « 




LA 


15, 0( 0,0) 




BP 


14 




END 





RESTORE REGISTURES 
SET RETURN INDICATION 
L CAD RETURN CODE 
RETURN 
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** *£ 

** DICTIONARY C ILE ** 

3?C afc ** 

£ ## £ A *##**#&## £*#3 ?C ## # 3$C # 

3^^3^>^^3}c^^^^^3^35=3}C3}c3?t^:3^3{;^<^^3|?*3}c3^^>Jc*^:^:3^3}C3^!^3?C3^3|lC3{<^<3iC3fc^:3^3k3^!^3?lC3{C3{c / 



( 1<MSPLR<S<*<PLUP»> mp SPLR<E<S<*<PLUP>>» M|_Y< L<Y<*<-ADJ o 
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